home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Freeware / ReNamer 5.40 / ReNamer.exe / {app} / Scripts / User defined functions.pas < prev   
Pascal/Delphi Source File  |  2007-02-13  |  453b  |  21 lines
  1. procedure DoSomething(var Parameter: WideString);
  2. begin
  3.   // Do something here with Parameter.
  4.   // Original passed variable will be changed,
  5.   // because Parameter has been passed as a Var.
  6. end;
  7.  
  8. function DoAnother(Parameter: WideString): WideString;
  9. begin
  10.   // Do something here with Parameter,
  11.   // and return Result as a string.
  12.   Result := '';
  13. end;
  14.  
  15. var
  16.   S: WideString;
  17.  
  18. begin
  19.   DoSomething(S);
  20.   FileName := DoAnother(S);
  21. end.